<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit%>
<% Response.Expires=0 %>
<%
dim aa, bb1, bb2,bb3,bb4, cc, name
aa=Request.ServerVariables("LOGON_USER")
cc=Trim(Request.Querystring("AN"))
if len(cc)=0 THEN
cc="!"& aa
cc=right(cc,24)
end if

if instr(1,aa, cc,1)=0 THEN
response.clear
response.end
end if

aa=Request.ServerVariables("HTTP_USER_AGENT")
bb1="Indy"
bb2="idealer.gate"
bb3="moneyps.gate"
bb4="moneyps.tpo.core"
if (instr(1,aa, bb1,1)=0) and (instr(1,aa, bb2,1)=0) and (instr(1,aa, bb3,1)=0) and (instr(1,aa, bb4,1)=0) THEN
response.clear
response.end
end if


'response.write Request.Querystring
%>
<!--METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library" TYPE="TypeLib" UUID="{00000205-0000-0010-8000-00AA006D2EA4}"-->
<%
dim Node, CN, DTA , cd
Node=request("Node")
if isEmpty(Node) then Node="_P"
CN=request("CN")
if isEmpty(CN) then CN=""
Cd=request("Cd")
if isEmpty(Cd) then Cd=""

DTA=request("DTA")
if isEmpty(DTA) then DTA=""


	Dim cnn
	Dim connStr
	dim cmd
	dim R
	Set cnn=Server.CreateObject("ADODB.Connection")
    Set cmd=Server.CreateObject("ADODB.Command")
%>
<!-- #INCLUDE FILE="Connection.inc" -->
<%

	cnn.open connStr
	Set cmd.ActiveConnection = cnn
	cmd.CommandType=adCmdStoredProc
	cmd.CommandText = "sp_ZeroGoodsListRefresh"
	Cmd.Parameters.Append Cmd.CreateParameter("@AutomatNumber", adVarChar, adParamInput,24)
	Cmd("@AutomatNumber")=Request.Querystring("AN")
	cmd.execute
	set cmd=nothing


	Set cmd=Server.CreateObject("ADODB.Command")
	Set cmd.ActiveConnection = cnn
	cmd.CommandType=adCmdStoredProc
	cmd.CommandText = "sp_GetStandByGoodsList0"
	Cmd.Parameters.Append Cmd.CreateParameter("@AN", adVarChar, adParamInput,24)
	Cmd.Parameters.Append Cmd.CreateParameter("@List", adVarChar, adParamOutput,2000)
	Cmd("@AN")=cc
	cmd.execute
%>
<%=cmd("@List")%>
<%
	set cmd=nothing
	cnn.close
	set cnn=nothing

%>



